home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Microsoft Plateform / Visual Basic 5.0 / Msvb50.ace / msvb50 / MSVB50 / VB / SAMPLES / VISDATA / SEEK.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-10-16  |  5.5 KB  |  188 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSeek 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Seek Parameters"
  5.    ClientHeight    =   1950
  6.    ClientLeft      =   1440
  7.    ClientTop       =   2595
  8.    ClientWidth     =   3390
  9.    BeginProperty Font 
  10.       Name            =   "Tahoma"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Height          =   2415
  19.    HelpContextID   =   2016143
  20.    Icon            =   "SEEK.frx":0000
  21.    Left            =   1380
  22.    LinkTopic       =   "Form2"
  23.    LockControls    =   -1  'True
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   1950
  27.    ScaleWidth      =   3390
  28.    ShowInTaskbar   =   0   'False
  29.    StartUpPosition =   1  'CenterOwner
  30.    Top             =   2190
  31.    Width           =   3510
  32.    Begin VB.CommandButton cmdCancel 
  33.       Cancel          =   -1  'True
  34.       Caption         =   "&Cancel"
  35.       Height          =   375
  36.       Left            =   1800
  37.       MaskColor       =   &H00000000&
  38.       TabIndex        =   8
  39.       Top             =   1440
  40.       Width           =   1455
  41.    End
  42.    Begin VB.CommandButton cmdOK 
  43.       Caption         =   "&OK"
  44.       Default         =   -1  'True
  45.       Height          =   375
  46.       Left            =   120
  47.       MaskColor       =   &H00000000&
  48.       TabIndex        =   7
  49.       Top             =   1440
  50.       Width           =   1455
  51.    End
  52.    Begin VB.OptionButton optSeekOperator 
  53.       Caption         =   "="
  54.       Height          =   255
  55.       Index           =   0
  56.       Left            =   120
  57.       MaskColor       =   &H00000000&
  58.       TabIndex        =   0
  59.       Top             =   360
  60.       Value           =   -1  'True
  61.       Width           =   495
  62.    End
  63.    Begin VB.OptionButton optSeekOperator 
  64.       Caption         =   ">="
  65.       Height          =   255
  66.       Index           =   1
  67.       Left            =   720
  68.       MaskColor       =   &H00000000&
  69.       TabIndex        =   1
  70.       TabStop         =   0   'False
  71.       Top             =   360
  72.       Width           =   615
  73.    End
  74.    Begin VB.OptionButton optSeekOperator 
  75.       Caption         =   "<="
  76.       Height          =   255
  77.       Index           =   2
  78.       Left            =   1440
  79.       MaskColor       =   &H00000000&
  80.       TabIndex        =   2
  81.       TabStop         =   0   'False
  82.       Top             =   360
  83.       Width           =   615
  84.    End
  85.    Begin VB.OptionButton optSeekOperator 
  86.       Caption         =   ">"
  87.       Height          =   255
  88.       Index           =   3
  89.       Left            =   2160
  90.       MaskColor       =   &H00000000&
  91.       TabIndex        =   3
  92.       TabStop         =   0   'False
  93.       Top             =   360
  94.       Width           =   495
  95.    End
  96.    Begin VB.OptionButton optSeekOperator 
  97.       Caption         =   "<"
  98.       Height          =   255
  99.       Index           =   4
  100.       Left            =   2760
  101.       MaskColor       =   &H00000000&
  102.       TabIndex        =   4
  103.       TabStop         =   0   'False
  104.       Top             =   360
  105.       Width           =   495
  106.    End
  107.    Begin VB.TextBox txtSeekValue 
  108.       Height          =   285
  109.       Left            =   120
  110.       TabIndex        =   6
  111.       Top             =   960
  112.       Width           =   3135
  113.    End
  114.    Begin VB.Label lblLabels 
  115.       AutoSize        =   -1  'True
  116.       Caption         =   "Value: "
  117.       Height          =   195
  118.       Index           =   1
  119.       Left            =   120
  120.       TabIndex        =   5
  121.       Top             =   720
  122.       Width           =   495
  123.    End
  124.    Begin VB.Label lblLabels 
  125.       AutoSize        =   -1  'True
  126.       Caption         =   "Operator: "
  127.       Height          =   195
  128.       Index           =   0
  129.       Left            =   120
  130.       TabIndex        =   9
  131.       Top             =   120
  132.       Width           =   765
  133.    End
  134. Attribute VB_Name = "frmSeek"
  135. Attribute VB_Base = "0{529A44C5-C9E1-11CF-9ED2-00AA00574745}"
  136. Attribute VB_GlobalNameSpace = False
  137. Attribute VB_Creatable = False
  138. Attribute VB_TemplateDerived = False
  139. Attribute VB_PredeclaredId = True
  140. Attribute VB_Exposed = False
  141. Attribute VB_Customizable = False
  142. Option Explicit
  143. '>>>>>>>>>>>>>>>>>>>>>>>>
  144. Const FORMCAPTION = "Seek Parameters"
  145. Const BUTTON1 = "&OK"
  146. Const BUTTON2 = "&Cancel"
  147. Const Label1 = "Operator:"
  148. Const Label2 = "&Value:"
  149. '>>>>>>>>>>>>>>>>>>>>>>>>
  150. Private Sub cmdCancel_Click()
  151.   gsSeekValue = vbNullString
  152.   txtSeekValue.SetFocus
  153.   Me.Hide
  154. End Sub
  155. Private Sub optSeekOperator_Click(Index As Integer)
  156.   txtSeekValue.SetFocus
  157. End Sub
  158. Private Sub txtSeekValue_Change()
  159.   If Len(txtSeekValue.Text) = 0 Then
  160.     cmdOK.Enabled = False
  161.   Else
  162.     cmdOK.Enabled = True
  163.   End If
  164. End Sub
  165. Private Sub Form_Load()
  166.   Me.Caption = FORMCAPTION
  167.   cmdOK.Caption = BUTTON1
  168.   cmdCancel.Caption = BUTTON2
  169.   lblLabels(0).Caption = Label1
  170.   lblLabels(1).Caption = Label2
  171. End Sub
  172. Private Sub cmdOK_Click()
  173.   If optSeekOperator(0).Value Then
  174.     gsSeekOperator = "="
  175.   ElseIf optSeekOperator(1).Value Then
  176.     gsSeekOperator = ">="
  177.   ElseIf optSeekOperator(2).Value Then
  178.     gsSeekOperator = "<="
  179.   ElseIf optSeekOperator(3).Value Then
  180.     gsSeekOperator = ">"
  181.   ElseIf optSeekOperator(4).Value Then
  182.     gsSeekOperator = "<"
  183.   End If
  184.   gsSeekValue = txtSeekValue
  185.   txtSeekValue.SetFocus
  186.   Me.Hide
  187. End Sub
  188.